Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmACR105
		Inherits System.Windows.Forms.Form

		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
			Me.Close()
		End Sub

		Private Sub frmACR105_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			Adodc1.ConnectionString = ConnectString
			Adodc1.ConnectionTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = "SELECT RCM.*, RCT.CTDSC" & " FROM RCM  INNER JOIN RCT ON RCM.CMTYP = RCT.CTTYP   order by CMCNO"
			Adodc1.Refresh()
			VB6_AddADODataBinding()
			Dim myDataCaptions As String() = {"Cust No", "Cust Name", "Contact Name", "Cust Type", "Address1", "Address2", "CMCNT", "City", "Postal code", "Tel", "Fax"}
			Dim myDataFields As String() = {"CMCNO", "CMNME", "CMCTN", "CTDSC", "CMAD1", "CMAD2", "Country", "CMCIT", "CMPSC", "CMTEL", "CMFAX"}
			setDataGridView(myDataCaptions, myDataFields, Me.grdLotMaster)
		End Sub
	End Class
End Namespace